(include "././fixed/class.inc")

(def-class real fixed
	(dec-method :vtable class/real/vtable)
	(dec-method :create class/real/create)
	(dec-method :print class/real/print :final)
	(dec-method :vcreate class/real/create :final)
	(dec-method :add class/real/add :final)
	(dec-method :sub class/real/sub :final)
	(dec-method :mul class/real/mul :final)
	(dec-method :div class/real/div :final)
	(dec-method :mod class/real/mod :final)
	(dec-method :min class/real/min :final)
	(dec-method :max class/real/max :final)
	(dec-method :abs class/real/abs :final)
	(dec-method :sign class/real/sign :final)
	(dec-method :neg class/real/neg :final)
	(dec-method :sqrt class/real/sqrt :final)
	(dec-method :sin class/real/sin :final)
	(dec-method :cos class/real/cos :final)
	(dec-method :frac class/real/frac :final)
	(dec-method :floor class/real/floor :final)
	(dec-method :recip class/real/recip :final)
	(dec-method :lt class/real/lt :final)
	(dec-method :gt class/real/gt :final)
	(dec-method :le class/real/le :final)
	(dec-method :ge class/real/ge :final))

(def-struct real fixed_size)
